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// LEDs - maybe declare subsets and allocate each FPGA some 

// great care has to be taken if both FPGAs try to access the same LEDs 

llllllllllllllllltlllllllllllllllllllllllllllllll 

macro expr LED_pins = {data = { "AU13", "AT14", "AV12", "AU14", 
5 "AW12", "AT15", "AV13", 

"AU15"}}; 



iiiiiiiiiiiiiiiiiiiiiiiiiiii/iiiiiiiiiiimiiiiiiiiii 

II ATA Interface 

lllllllllllllllllllllllllllllllllllllllllllllllllllll 

macro expr ATA_pins = {data = { "AU26", "AV27", "AT26", "AW28", "AU27", 
15 "AV28", "AW29", "AT27", 

"AW30", "AU28", 

"AV30", "AV29", "AW31", 

"AU29", "AV31", 

"AT29", "AW32", "AU30", 

20 "AW33", "AT30", 

"AV33", "AU31", "AT31", 

"AW34", "AV32", 

"AV34", "AU32", "AW35", 

"AT32", "AV35", 

25 "AU33", "AW36", 

"AT33"}}; 
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IIIIIIIIIIIIIIIIIIHIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIilllll 
II Expansion Bus (32 bits) 
5 lllllinilllllllllllllllllllllllllllllllltllllllllllllllll 



macro expr E_pins = {data = { 



"AV19", "AW20", 



10 



"AW21", "AU23", 



"AR23", "AV22", 



"AV17", "AU18", "AW17", "AT19", "AVI 8", 

"AU19", "AW18", "AU21", 

"AV20", "AR22", "AV23", 

"AV21", "AT23", "AW22", 

"AV24", "AW23", 



15 "AW24", "AU24", "AW25", 



"AW26", "AT25", 



"AT24", "AV25", "AU25", 



"AV26", "AW27"}}; 



20 

///////////////////////////// 
// Serial H Bus 
//////////////////////////// 

macro expr SERIALHjpins = {data = {"F39", "H37", "F38", "H36", "E39", "G37", 
25 "E38"}}; 



IlllllllllUIIIIIIIIIIIIIIimilllllllllll 
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// SelectLink Bus - Directly connects the 2 FPGAs 

lllllllllllilllllllllllllllllllllllll/lllll 



macro expr SL_pins = {data = { 

5 

"AU7", "AV6", "AT8", 
"AT9", "AW7", "AV8", 
10 "AV9", "AU10", "AW9", 
"AW10","AU12" > "AV11", 



'AV3", "AU4", "AV5", "AT6", "AV4", "AU6", 
"AW4", "AT7", "AW5", 

"AW6", "AU8", "AV7", 

"AU9", "AW8", "AT10", 

,, ATir , ,"AV10","AUll", 

"AT13", "AW11"}}; 



/////////////////////////// 
//VGA interface 
20 /////////////////////////// 

macro expr VGA_pins = {data = { "AW13", "AV14", "AT16", "AW14", "AU16", 

"AV15", "AR17", "AW15", 

"AT17", "AU17", 

"AVI 6", "AR18", "AW16", 

25 "ATI 8"}}; 

macro expr vga_vsync_pin = { data= { "AV14" } }; 
macro expr vga_hsync_pin = { data = { "AW13" } }; 
macro expr vga_data_pins = { data = { "AT16", "AW14", "AU16", "AV15", 
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"AR17", "AW15", "AT17", "AU17", 
"AV16", "AR18", "AW16", "ATI 8"} }; 

5 // macros for compatibility with existing programs 
macro expr vsyncjrin = { "AV14" }; 
macro expr hsync_pin = { "AW13" }; 

macro expr video_spec = { data = { "AT16", "AW14", "AU16", "AV15", 
"AR17", "AW15", "AT17", "AU17", 
10 "AV16", "AR18", "AW16", "AT18"} }; 

/////////////////////////// 
// CPLD interface pins 
15 /////////////////////////// 

macro expr BUSMaster _jpin = { data = { "C26" }}; // P12 

macro expr FPcom_pins = {data = { "B26", "C27", "A27"}}; //P14P15 P16 

20 /////////////////////////// 
// Serial Ports pins 

/////////////////////////// 

25 macro expr SERIAL_pins = {data = {"AV36", "AU34", "AU36", "AT34"}}; 

macro expr rs232_txd_pin = {data = { "AV36"}}; 
macro expr rs232_rxd_pin = {data = { "AU36"}}; 
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macro expr rs232_rts_pin = {data= { "AU34"}}; 
macro expr rs232_cts_pin = {data = { "AT34"}}; 

5 Illllllilllllllillllllllllllllllllllll/lllllll/lllllllllllllllllllllW 
//USB 

lllllllllllllllllllllllllllllllllllllllll/ll/llll/IIIIIIIHIllllllllllll 
macro expr USBMaster_pin = { data = { "D26" } } ; // P13 

10 

macro expr USBD_pins = {data= {"C29", "A30", "D29", "B30", "C30", "A31'\ "D30", 
"A32"}}; 

macro expr USBMSjpins = { data = {"D27"} }; 

15 

macro expr USBnRST_pins = { data= {"B27"} }; 
macro expr USBIRQ_pins = { data= {"C28"} }; 
20 macro expr USBAO_pins = { data = { " A28" } } ; 
macro expr USBnRD_pins = { data= {"B28"} }; 
macro expr USBnWR_pins = { data = {"B29"} }; 

25 

macro expr USBnCS_pins = { data= {"A29"} }; 
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#endif KOMPRES SOR_SLAVE_HEADER 
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Appendix C 

Following is a description of a parallel port interface that gives full access to the all the 
parallel port pins and implements a parallel port data transfer functionality that can be 
5 used in conjuction with the ESL download utility 

// Parallel port controller 

10 

// Instantiates a component that controls the parallel port. 
// This is to be run in parallel in the main loop. The interfaces 
// provide the user with abstracts to use deal efficiently with the 
// component, 

15 

/ / mX» *L» mJ+ *t» *I* <Lp *£* *J> %f* »1# Vt* %l+ *J> *1> >U VL» <U *J>- »&• <4* *J> <!> <U VL* <L* vt* *!> >L» «J> *A# <U «1» 

/ / Sj> 3p. *Ji *p *|» ^ jj» -^f* ^J> #f* •r* *f» *T» *T* *y» •■J* •'f* *p *f* ^f* *>* *T* *J» *T» 

// Interfaces 

// 

// API to Parallel Port - for direct access to the pins 

20 // 

// PpWriteData((unsigned 8)byte) - write byte to data pins 
// PpReadData((unsigned 8)byte) - read byte from data pins 
// PpReadControl((unsigned 4)control_port) - read the control port 
// PpReadStatus((unsigned 6)status_port) - read the status port 
25 // PpSetStatus((unsigned 6) status_port) - write to the status port 
// 
// 

// API for the ESL parallel data transfer utility 

// 
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// OpenPP(error) - open the parallel port for data transfer 
// ClosePP(error) — close the port 
// SetSendMode(error) - set the port to send mode 
// SetRecvMode(error) — set the port to receive mode 
5 // SendPP(byte ? error) ~ send a byte over the port 
// ReadPP(byte ? error) - read a byte from the port 
// 

// error returns the result of the command: 
// 0 - no error 
10 //I - buffer error 
// 2 - timeout error 

// 

// Note: SendPP and ReadPP will block the thread until a byte is transmitted or the 
timeout 

15 // value is reached. If you need to do some processing while waiting for a 
communication 

// use a 'prialt' statement to read from the global pp_recv__chan channel or write to the 
// pp_send_chan channel 



20 



lllllllllllllllllllllllflll/llllllll/llllllllllll/ll/llll/llllllllll^ 
// The Nitty Gritty 

llilllilllillllitliilitillliiilllliiilliiiilltlfiliiililiitiiiliillllliliiilii 



II The necessary channels 

chan unsigned 8 pp_send_chan, ppjrecv_chan; 

chan unsigned 2 ppcommand, pp_error; 
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chan pp_data_send_channel, pp_data_read_channel, pp_control_port_read; 
chan pp_status_port_read, pp_status_port_write; 



5 #define OPENCHANNEL 0 
#defmeCLOSE_CHANNEL 1 
#defme SENDMODE 2 
#defmeRECV_MODE 3 

10 #definePP_NO_ERROR 0 

#defme PP_HOST_BUFFER_NOT_FINISHED 1 
#defme PP_OPEN_TMEOUT 2 

// Currently the functions don't act on any errors, but this can easily be added if 
15 required. 

// return of error code could also be used to generate a time-out condition. 



macro proc OpenPP(error) 
20 { 

pp_command ! OPEN_CHANNEL; 
pp_error ? error; 

} 



25 



macro proc ClosePP(error) 
{ 

pp_command ! CLOSE_CHANNEL; 
pp_error ? error; 



- 138- 



} 

macro proc SetSendMode(error) 

{ 

pp_command ! SENDMODE; 
pp_error ? error; 

} 

macro proc SetRecvMode(error) 
{ 

pp_command ! RECVMODE; 
pp error ? error; 

} 

macro proc WritePP(byte, error) 
{ 

ppsendchan ! byte; 

} 

macro proc ReadPP(byte, error) 
{ 

pp_recv_chan ? byte; 

} 



j J *l» ^> *|t ijC 3$C ^j? ijc 3$! ijc 3§C *j> 5ft ^ ijc *$5 #§t 5fS jjc 5f» *f* *J* -SfC #|f *J* ?Jj jjc jjs J$C 3jc 5j* *J* *J* *|£ *t* *{? 
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// Parallel port controller 

// Host Channel Control (HCC) nAutoFeed 
5 // FPGA Channel Control (FCC) DONE 
// Host Data Control (HDC) nSelectJn 
// FPGA Data Control (FDC) nACK 
//FPGA ready to communicate (FRTC) PE 

10 

// HCC indicates that host is sending - end of the buffer 
// FCC controls direction of commmunication 
// FRTC indicates that FPGA is ready 

// when FPGA sets FCC low, rising edge on FDC when data applied 
1 5 // lower when host responds with HDC high 

// when FCC high FPGA is in receive mode and host applies data 
// on rising edge on HDC. FPGA responds with FDC high and host 
// then lowers HDC. Host will keep data byte on pins till FDC is 
// lowered again by the FPGA 

20 

// chan unsigned 8 pp_data_chan; 
// chan unsigned 4 pp_control_chan; 
// chan unsigned 5 pp_status_chan; 



IlllliilliiilillliilllillllHlllllllilliliilllli 

li Macro to implement ESLs bi-directional host-fpga 

// data transfer protocol 



// Accesses the physical layer 

liiiiiiiiiiiiiniitiifiiiiiiiiiiiiiiiMiiiitiH 



macro proc TestJPPO 

{ 

unsigned 4 controljport; 
unsigned 6 status_port; 

unsigned 21 counter; 

// PpSetControl(ObOOOO); 
PpSetStatus(ObOOOOOO); 

do 

{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOOOOOl); 

do 

{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOOOOlO); 



do 

{ 

counter+-+; 
}while(counter != 0); 

PpSetStatus(ObOOOlOO); 

do 

{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOOlOOO); 

do 

{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOlOOOO) 

do 
{ 

counter++; 
}while(counter != 0); 
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10 



PpSetStatus(ObOOOOOO); 
do 

{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOlllll); 

while(l) 

{ 

PpReadControl(debug_control) ; 

} 



15 } 



macro proc pp_coms(pp_send_chan, ppj:ecv_chan, pp_command, pp_error) 

{ 

// bit masks for accessing control and status ports 

//control_port = nSelectjn.in @ initin @ nAutofeedin @ nStrobe.in; 
#define HCC control jport [ 1 ] //ObOO 1 0 //nAutofeed pin on control port 
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#define HDC control_port[2] //ObOlOO //nlnit pin on control port 

//status__port = ppdir @ busy @ nAck @ pe @ select @ nError; 
#defineFRTC ObOOOOlO //pe pin on status port 

5 #defineFCC ObOOOlOO //select pin on status port 

#defme FDC ObOO 1 000 //nAck pin on status 

#definePP_SEND OblOOOOO 
#defme PPREAD ObOOOOOO 

10 

unsigned 4 control_port; 
unsigned 6 status_port; 
unsigned 1 pp_dir with {warn = 0}; 
15 unsigned 2 command; 

unsigned 8 temp_data; 

PpSetStatus(PP_READ | FRTC); // initialise the port, read mode, FRTC high 

20 while(l) 

{ 

prialt 

{ 

case pp_command ? command: 

25 

// deal with any commands received 

switch (command) 

{ 

case OPENCHANNEL: 



-144- 



// open channel and set to FPGA send 

mode 

PpSetStatus(PP_SEND | FCC ); // |FDC 

keep FCC low, FRTC low to indicate ready 

pp_dir= 1; 



open channel 



// wait for pulse on HCC in response to 



PpReadControl(control_port); 



while(HCC) // wait for nHCC to go low 
{ 

PpReadControl(control_port); 



} 



while(IHCC) // wait for nHCC to go high 
{ 

PpReadControl(controljport); 



} 
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pp_enor ! PP_NO JERROR; 



break; 



regardless of state 
1 0 status port to all zeros, FRTC high 



case CLOSE^CHANNEL: // closes the channel 
PpSetStatus(PP_READ | FRTC); // sets 
pp_dir = 0; 

pp^error ! PPJvFO JERROR; 
break; 



15 



case SEND MODE: 



20 



PpReadControl(control_port); 



// set FRTC high - host send, start driving 



data pins, FCC low 



PpSetStatus(PP_SEND); 
25 pp_dir=l; 

pp error ! PP_NO_ERROR; 

// BUFFERNOTFINISHED 
break; 
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case RECVMODE: 

// set FRTC high - host read - stop driving 
PpSetStatus(PP_READ | FCC ); 
ppdir = 0; 

pp_error ! PP_NO_ERROR ; 
break; 

default: 

delay; 
break; 

} 

break; 

// FPGA sending 
case ppsendchan ? tempdata: 

PpSetStatus(PP_SEND); // FCC low, FDC 
low - pin is inverted 



data pins, FCC high, FDC low 
//|FDC|FCC 



HCC 



FDC high 



low - pin is inverted 
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PpReadControl(control_port); 
while(!HCC) // wait for host to de-assert 

{ 

PpReadControl(controljDort); 

} 

Pp WriteData(temp_data) ; 
PpSetStatus(PP_SEND | FDC);// FCC low, 

PpReadContro](control_port); 

while(!HDC) // wait for host to assert HDC 
{ 

PpReadControl(controljport); 

} 

PpSetStatus(PP_SEND); // FCC low, FDC 

PpReadControl(control_port) ; 
while(HDC) // wait for host to de-assert 



HDC 
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{ 

PpReadControl(controljport); 

} 

break; 



// host sending 
default: 

PpReadControl(controljport); 
PpReadStatus(statusjort); 



if (!status_port[5] & !HCC) // read one 

byte, if in read mode and HCC is low 

{ 



while(IHDC) // wait for host to 

apply data and raise HDC 

{ 



PpReadControl(control_port); 



FDC); // FCC high FDC high 
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PpSetStatus( PPREAD 1 FCC 



PpReadData(temp_data); 



10 



pp_recv_chan ! temp_data; 

PpReadControl(control_port); 
PpReadStatvis(status_port); 



remove HDC 



15 



PpReadControl(controljport); 



20 



FCC high FDC low 



while(HDC) // wait for host to 



PpSetStatus( PP_READ | FCC ); // 



25 



} 

else delay; 
break; 



}//while(l) 
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delay; // avoid combinational cycles 

} 



5 



10 iiiiillllllliilllliilllllliililtlllllilliiiilllllllllllltllil 
II Parallel Port - Physical layer 

// 

// Allows access to all the data, control and status ports 
// through a series of channels which can be read from 
15 // and written to. 

//////////////^^^ 

// Macro abstractions for the various actions 

20 macro proc PpWriteData(/* (unsigned 8)*/ byte) 
{ 

pp_data_jsend_channel ! byte; 

} 

25 

macro proc PpReadData(/*(unsigned 8)*/ byte) 

{ 

pp_data__read_channel ? byte; 
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} 

macro proc PpReadControl(/*(unsigned 4)*/ control_port) 

5 { 

pp_control_port_read ? control_port; 

} 

10 

macro proc PpReadStatus(/* (unsigned 6)*/ status jport) 
{ 

pp_statusjport_read ? statusjport; 

15 } 

macro proc PpSetStatus(/*(unsigned 6)*/ statusjport) 
{ 

pp_statusjport_write ! status_port; 

20 } 



25 // Actual Parallel Port control circuitry 

macro proc parallel jort(pp_data_send_channel, pp_data_read_channel ? 
pp_controI_port_read ? 
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pp_statusjport_read ? 

pp_statusj3ort_write) 

{ 

5 unsigned 8 pp_data; 

unsigned 6 status ^register; 

interface bus_ts_clock_in (unsigned 8) data_bus(pp_data, statusjregister[5]) 
with pp_data_pins; 

10 

// Control Port (unsigned 4, made up as nSelect__in.in @ init.in @ nAutofeedin 
@ nStrobein) 

interface bus_clock_in (unsigned 4) control_port() with controljport jpins; 

15 

// Status Port, status_register = ppdirection @ busy @ nAck @ pe @ Select @ 

nError; 

interface bus_out() status_j)ort_bus(status_register[4:0]) with status _port_pins; 

20 

// Setting pp ^direction to 1 will drive data onto the pins. 

while(l) 
{ 

25 // Allows read of control, read / write of status and data ports 

simulatneously 

par 

{ 
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10 



25 



prialt 
{ 

case pp_control_port_read ! control jwrt.in: 
break; 

default: 

delay; 
break; 

} 



prialt 

{ 

case pp_status_port_write ? status register: 
15 break; 

case ppstatus j?ort_read ! status register: 
break; 

20 default: 

delay; 
break; 

} 



prialt 

{ 

case pp_data_send_channel ? pp_data: 
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break; 

case pp_data_read__channel ! data__bus.in: 
break; 

default: 

delay; 
break; 



} 



} 

} 

delay; // to avoid combinational cycles 

} 



//macro expr controljport = nSelectJn.in @ init.in @ nAutofeed.in @ 
nStrobein; 

/^interface bus_clock_jn (unsigned 1) nAutofeed() with nAutoFeed_j>in; 
interface bus_clock_in (unsigned 1) initQ with init_pin; 
interface bus_clock_jn (unsigned 1) nSelect_in() with nSelect_in_pin; 
interface bus_clock_in (unsigned 1) nStrobe() with nStrobejsin; 

// defined in the same order as on a PC 
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macro expr control jport = nSelect_in.in @ initin @ nAutofeed.in @ nStrobe.in; 

*/ 



/* 

5 interface bus_out () nAck_line( status_register[3] ) with nAckjnn; 

interface bus_out () busy_line(status_register[4]) with busyjiin; 

interface bus_out () pe_line(status_register[2]) with pe_pin; 

interface bus_out () select_line(status_register[l]) with selectjrin; 

interface bus_out () nError_line(status_register[0]) with nError_pin; 
10 */ 



// status_register[5] is high to send and low to receive 
// defined in the same order as on a PC 
// macro expr status_port = pp_direction @ busy @ nAck @ pe @ Select @ 
15 nError; 



20 
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Appendix D 

This Appendix describes a Macro Library for a board according to the present 
invention. The library contains functions for 
5 1) Memory arbitration 

2) Flash bus arbitration 

3) Read and Write to Flash RAM 

4) FPCOM settings 

5) Control of the LEDs 

10 

iliilillllitlliiilitlliiiliillllillillllililllllllllllliillliilltl 

// 

// Interfaces 

// 

15 // Shared RAM arbitration 

// 

// KRequestMemoryBank(bankMask) 
// KReleaseMemoryBank(bankMask) 

// 

20 // Flash RAM Macros 

// 

// KEnableFlashO 

// KDisableFlashQ 

// KSetFlashAddress(address) 

25 // KWriteFlashData(address, data) 

// KReadFlashData(address, data) 

// KReadFlashED(flash_component_ID s manufacturer_ID) 
// 
// 
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// Flash bus arbitration 

// 

// KSetFPGAFBMO 

// KReleaseFPGAFBMQ 
5 // 

// Others 

// 

// KSetLEDs(maskByte) 
// KSetFPCOM(fbcom) 



15 #ifhdef_KOMPRESSOR_LIBRARY 
#define _KOMPRESSOR_LIBRARY 

// Include header file 

//#include "KompressorMaster.h" 

20 



l/llllllllllllllllllllllllll/lllllllllllllllllllllllllllllllllllllllllllllll 
II Request access to a memory bank 
25 // 

// The procedures will block until access to all the requested banks have been 
// granted. 

// 
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unsigned 1 sharedbankOrequest = 1 with { warn = 0} ; 
unsigned 1 shared J)ankl_request = 1 with { warn = 0} ; 

interface bus_out() shbkOreq(shared_bankO_request) with 
5 sram_shared_bankO_request_pin; 

interface bus_out() shbklreq(sharedbanklrequest) with 
sram_shared_bank 1 jrequest_pin; 

interface bus_clock_jn(unsigned 1) shbkOgrant() with sram_shared_bankO_grant_pin; 
interface bus_clock_jn(unsigned 1) shbklgrantQ with sram_shared_bankl_grantjpin; 



macro proc KRequestMemoryBankO() 
{ 

1 5 shared_bankO_request = 0; 

while(shbkOgrantin) delay; 

} 



20 

macro proc KRequestMemoryBankl() 
{ 

shared_bankl ^request = 0; 
while(shbklgrant.in) delay; 

25 } 
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lllllllllllllllllllllllllllllllll 
II Release a memory bank 
// 

5 

macro proc KReleaseMemoryBankO() 
{ 

shared_bankO_request = 1; 

} 

10 

macro proc KReleaseMemoryBankl() 

{ 

shared_bankl_request = 1; 

15 } 



20 



IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJIIIIIIIIIIIII 
II 

25 // Functions for dealing with FP commands 

#defme FP_SET_IDLE (unsigned 3) 7 

#defme FPREADSTATUS (unsigned 3) 5 
#defme FPJXLKJLOW (unsigned 3) 3 
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#defme FP_CCLK_HIGH (unsigned 3) 7 
#defmeFP_WRITE_CONTROL (unsigned 3) 0 

5 unsigned 3 fpcom = FP SETJDLE with { warn = 0} ; // default 
interface bus_out() rpcombus(fpcom) with FPcom_pins; 

macro proc KSetFPCOM(command) 
{ 

1 o fpcom = command; 

delay; 
delay; 

} 

15 

macro proc KReadCPLDStatus(status) 
{ 

par 

{ 

20 KDisableFlash(); 

flashjwrite 0; 

} 

KSetFPCOM(FP_READ_STATUS); 

25 

delay; 
delay; 
delay; 
delay; 
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status = flashdatabus.in; 
par 

{ 

KSetFPCOM(FP_SET_IDLE); 
KEnableFlashO; 

} 

} 



macro proc KWriteCPLDControl(control) 
{ 

KDisableFlashO; 
par 

{ 

flash_data = (unsigned 8) (0 @ control); 
flash_write - 1; 

} 



KSetFPCOM(FP_WRITE_CONTROL); 

delay; 

delay; 

delay; 

par 

{ 

KSetFPCOM(FP_SET_IDLE); 
flash_write = 0; 
KEnableFlashO; 
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5 ItimiHUIIIilllllllHIHHIHHIH 
II 

II Flash RAM stuff 

// 
// 

10 // Parameters; 



// 






// 


Read/write cycle 


120ns 


// 


Address to output 


120ns 


// 


CE to ouput 




// 






// 


CE low to WE low 


0 


// 


write pulse width low 70ns 




// 


data setup to we high 50ns 




// 


address setup to we hi 55ns 




// 


address/data hold 


0ns 


// 


write pulse width high30ns 





25 unsigned 24 flash_address with { warn = 0}; 
unsigned 8 flash_data with { warn = 0}; 

unsigned 1 flash_cs = 1 ? flash_we = 1, flash_oe = 1 with { warn = 0}; // initialise to 
high 
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unsigned 1 flash_write = 0 with { warn = 0} ; // controls direction of the data pins 
unsigned 1 flash__on = 0 with { warn = 0} ; // controls the other tristate buses 

interface bus_ts_clock_in(unsigned 24) flash_address_bus(flash_address ? flash_on) 
5 with {data = FA_pins} ; 

interface bus_ts_clock_in(unsigned 1) flash_chipselect(flash_cs ? flash_on) with 
flash_cs_pin; 

interface bus__ts_clock_in(unsigned 1) flash_writeenable(flash_we ? flash_on) with 
flash__wejpin; 

10 interface bus_ts_clock_in(unsigned 1) flash_outputenable(flash_oe, flash__on) with 
flash_oe__pin; 

interface bus_ts_clock_in(unsigned 8) flash_datajbus(flash_data, flash_write) with 
{data = FDj>ins}; 



15 

macro proc KEnableFlash() 

{ 

par 

{ 

20 flash_on = 1; 

flash_cs = 0; 

} 

} 



25 

macro proc KDisableFlash() 

{ 

par{ 

flashon = 0; 
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flash_cs = 1 ; 
} 



// Sets up the address on the 

macro proc KSetFlashAddress(address) 

{ 

10 flash_address = address; 

} 



macro proc KWriteFlashData(address ? data) 
15 { 

par // set up address and data and drive onto pins 

{ 

flash_oe = 1; // disable output 
20 flash_address = address; 

flash__data = data; 
flash_write = 1; 

flash_we = 0; // send write pulse 
} 



25 



// running at 50/2 MHz - 40 ns cycles - 2 delays should be 
// sufficient to meet timing constraint 



delay; 
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delay; 



par 

{ 

flash _we = 1; 
flash_write = 1; 



} 

10 

macro proc KReadFlashData(address ? data) 
{ 

par 
{ 

15 flash_write = 0; 

flash_oe - 0; // enable output 
flash_address = address; 

} 



20 // running at 50/2 MHz - 40 ns cycles - 2 delays should be 

// sufficient to meet timing constraint 
delay; 
delay; 

data = flash_data_bus.in; 

25 

} 



macro proc KReadFlashID(flashid, manid) 



par 

{ 

KEnableFlashO; 
KSetFPGAFBM(); 

} 

KWriteFlashData(0, 0x90); 
KReadFlashData(0, manid); 
KReadFlashData(2, flashid); 

par 
{ 

KReleaseFPGAFBMQ; 

KDisableFlash(); 

} 



macro proc KReadFlashStatus(status) 

{ 

par 
{ 

KEnableFlashO; 
KSetFPGAFBMQ; 

} 
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KWriteFlashData(0, 0x70); 
KReadFlashData(0, status); 

par 

{ 

KDisableFlashO; 
KReleaseFPGAFBM(); 

} 



10 } 



lllllllllllllllllllllllllllllllllllll 
II Flash bus arbitration pins 
15 // 

unsigned 1 fbusjnaster = 1 with {warn = 0}; // initialise to not master 
interface busoutO bus_master_line(fbus_master) with BUSMaster_pin; 

macro proc KSetFPGAFBMO 
20 { 

fbus_master = 0; 

} 



25 macro proc KReleaseFP GAFBM() 
{ 

fbusjnaster = 1 ; 

} 
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llllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
II LED control macros 

5 

unsigned 8 LED = 0 with {warn = 0} ; // by default 
unsigned 1 LED_en = 0 with {warn = 0}; 

interface bus_ts(unsigned 8) LEDpins(LED ? LED en) with LED_pins; 
10 macro proc KSetLEDs(maskByte) 

{ 

par 

{ 

LED = maskByte; 
15 LED_en = 1 ; 
} 

} 



lllllllllllllllltllHIIIItllllllllll 
II 

II FPcom =7 CCLK = High 

// 

25 // From the FPGA BUSMuster pin should be brought low and the FLASH may be 
// accessed as any normal device RAM device. 

// 

#endif KOMPRESSOR LIBRARY 



